Apple Reference & Presen…rary 8 (Internal Edition)/Apple R&P Lib Internal v8.0.iso/3-Presentations/Service⁄Support⁄Training/Self-Paced Training/Macintosh Family Training/Macintosh Family Training⁄C/Macintosh Family Training_C/stack_-1.xml

Extensible Markup Language | 1990-06-04 | 20.2 KB | 117 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in</name>
    <id>-1</id>
    <cardCount>93</cardCount>
    <cardID>9916</cardID>
    <listID>15246</listID>
    <cantModify><true /></cantModify>
    <cantDelete><false /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>640</width>
        <height>480</height>
    </cardSize>
    <script>--—————————————————————————————————————————————————————————————————————
--  Script of Stack "Macintosh Family Color"
--  Copyright © 1990 by Apple Computer, Inc.
--  Main (large) stack for the October ’90 Training stacks
--—————————————————————————————————————————————————————————————————————
--  Produced by Tom Hudson in Apple Training Support
--  Written, Modified, and Illustrated by Margaret Steimer
--  Designed by Chuck Walker
--  HyperCard construction by Chuck Walker
--
--  Globals:   mapLocFam, completeFam, footprintsFam, prefsStack,
--             ATSUserName, whatSound
--  Handlers:  openStack, closeStack, suspendStack, closeBackground,
--             openCard, fieldLink, makeAMark, checkCompletion,
--             doStackHelp, noFunction, returnTo, showMenu,
--             menuNavigation, showMarker, goMark, showPrinting,
--             doPrinting, doStackGlossary
--             doMenu, returnKey, arrowKey, enterKey
--  (note: resources are installed in this stack)
--  Fonts:     AplGaram 16, 24, 48;
--             B AplGaram Bold 16, 24;
--             CL Futura CondensedLight 12, 14;
--             CB Futura CondensedBold 12;

--—————————————————————————————————————————————————————————————————————

on openStack
-- place the window in the center of the screen
get the screenRect
put (item 3 of it / 2) - 320 into windL
put (item 4 of it / 2) - 240 into windT
set the rect of card window to windL,windT,windL + 640,windT + 480
hide menuBar
hide message window
hide tool window
hide pattern window
hide scroll window
hide groups
end openStack

--  close any open palettes
on closeStack
if there is a window "mainMenu" then close window "mainMenu"
if there is a window "markerMenu" then close window "markerMenu"
if there is a window "printMenu" then close window "printMenu"
end closeStack

--  close any open palettes
on suspendStack
if there is a window "mainMenu" then close window "mainMenu"
if there is a window "markerMenu" then close window "markerMenu"
if there is a window "printMenu" then close window "printMenu"
end suspendStack

-- keep track of the most recent location for the stack map
on closeBackground
global mapLocFam, footprintsFam, completeFam
if the short name of this bg ≠ "Stack Map" then
put the short name of this bg into mapLocFam
if completeFam = "done" then exit closeBackground
if the short name of this bg is not in footprintsFam then
put mapLocFam into whatSection
put the number of this bg into sectionNum
put the number of cards of this bg into howManyCards
checkCompletion whatSection,sectionNum,howManyCards
end if
end if

-- don’t bother checking if all cards viewed
repeat with i=1 to the number of bg
if i is not in footprintsFam then exit closeBackground
end repeat
put "done" into completeFam
end closeBackground

--  is this section complete?
on checkCompletion whatSection,sectionNum,howManyCards
global completeFam, footprintsFam
set cursor to busy
put 0 into theCount
put sectionNum & "•" into theSection
if theSection is in completeFam then
repeat with x = 1 to the number of items in completeFam
if theSection is in item x of completeFam then ¬
put theCount + 1 into theCount
end repeat
if theCount > howManyCards - 4 then
put whatSection & "," after footprintsFam
end if
end if
end checkCompletion

on openCard
global completeFam
if there is a bg button "cardMark" then
if the short name of this card is in markedFam then
set the icon of bg button "cardMark" to "checkedBox"
else
set the icon of bg button "cardMark" to "emptyBox"
end if
end if

if completeFam ≠ "done" then
put the number of this bg & "•" & ¬
the short name of this card into temp
if temp is not in completeFam then
put the number of this bg & "•" & ¬
the short name of this card & "," after completeFam
end if
end if

put the number of this card into word 2 of field "cardNo"
put the number of cards into word 4 of field "cardNo"

end openCard

on idle
if there is a window "waitDLOG" then close window "waitDLOG"
end idle

--—————————————————————————————————————————————————————————————————————
-- stack housekeeping scripts —————————————————————————————————————————

on returnTo
pop card into lastPush
if the short name of this stack is not in lastPush then
visual iris close fast
go card "Stack Map"
else
visual iris close fast
go lastPush
end if
end returnTo

-- handler for grayed out buttons
on noFunction
answer "When a gray button has no icon, it means that option is not available."¬
& return & return & "Click a button with an icon in it."¬
with "Help" or "OK"
if it is "Help" then doStackHelp gray
end noFunction

-- handler for text links
-- if target not in field "subHead", look for it in Glossary stack
on fieldLink
put empty into WhatToFind
if the textStyle of the clickChunk is "bold,group" or¬
the textStyle of the clickChunk is bold then
push card
put the clickText into whatToFind
if "*" is in whatToFind then doStackGlossary whatToFind
else
lock screen
set lockmessages to TRUE
find string whatToFind in field "subHead"
end if
unlock screen with visual iris open fast
send "openCard" to this card
end if
end fieldLink

-- handler to mark/unmark cards in a locked stack
on makeAMark check
global completeFam, markedFam
if there is not a bg button "cardMark" then exit makeAMark
if check = "on" then
if the short name of this card is not in markedFam then
put the short name of this card & "," after markedFam
set the icon of bg button "cardMark" to "checkedBox"
end if
else if check = "off" then
if the short name of this card is not in markedFam then exit makeAMark
set cursor to watch
put markedFam into temp
put empty into markedFam
repeat with x = 1 to the number of items in temp
if the short name of this card is not in item x of temp then
put item x of temp & "," after markedFam
end if
end repeat
set the icon of bg button "cardMark" to "emptyBox"
else
if the short name of this card is not in markedFam then
makeAMark "on"
else
makeAMark "off"
end if
end if
end makeAMark

-- handler to play sounds
on playSound whatSND
set cursor to ear
play whatSND
repeat until the sound is done
if the mouse is down then
play stop
exit to hyperCard
end if
end repeat
end playSound

--—————————————————————————————————————————————————————————————————————
--  palette & help handlers  ——————————————————————————————————————————

-- open the help stack to the appropriate card
on doStackHelp whatCard
set cursor to busy
get the loc of card window
put item 1 of it + 432 into xLoc
put item 2 of it + 248 into yLoc
lock screen
push card
set cursor to busy
go to stack "ATS Help" in a new window
if whatCard ≠ empty then go card whatCard
set cursor to busy
set the loc of the card window to xLoc,yLoc
unlock screen with visual wipe up fast
end doStackHelp

-- open the Glossary stack to the appropriate term
on doStackGlossary whatToFind
delete char (offset("*",whatToFind)) of whatToFind -- dump asterisk
set cursor to busy
get the loc of card window
put item 1 of it + 212 into xLoc
put item 2 of it + 248 into yLoc
lock screen
push card
set cursor to busy
go to stack "ATS Glossary" in a new window
set cursor to busy
if whatToFind ≠ empty then find whatToFind in field "text1"
set the loc of the card window to xLoc,yLoc
unlock screen with visual wipe up fast
end doStackGlossary


-- handler to show navigation palette
on showMenu
if there is a window "mainMenu" then
close window "mainMenu"
else
if there is a window "markerMenu" then close window "markerMenu"
if there is a window "printMenu" then close window "printMenu"
palette "mainMenu","424,331"
end if
end showMenu

-- navigation handler for navigation palette
on menuNavigation whatCard
push card
play stop
visual iris open fast
go card whatCard
end menuNavigation

-- handler to show marked cards palette
on showMarker
if there is a window "mainMenu" then close window "mainMenu"
palette "markerMenu","432,352"
end showMarker

-- marked cards navigator
on goMark whichWay
global markedFam
if the number of items in markedFam = 0 then
answer "There are currently no marked cards."
exit goMark
end if
lock screen
set lockMessages to true
set lockRecent to true
set cursor to watch
if whichWay = "next" then
go next
repeat until the short name of this card is in markedFam
if the short name of this card is in markedFam then exit repeat
go next
end repeat
unlock screen with visual wipe left fast
else if whichWay = "prev" then
go prev
repeat until the short name of this card is in markedFam
if the short name of this card is in markedFam then exit repeat
go prev
end repeat
unlock screen with visual wipe right fast
end if
send "openCard" to this card
end goMark

-- handler to show printing palette
on showPrinting
if there is a window "mainMenu" then close window "mainMenu"
palette "printMenu","474,372"
end showPrinting

-- printing handler
on doPrinting printWhat
global markedFam
if printWhat = "card" then
doMenu "Print Card"
else if printWhat = "marks" then
if the number of items in markedFam = 0 then
answer "There are currently no marked cards."
exit doPrinting
end if
open printing with dialog
repeat with x = 1 to the number of items in markedFam
go card item x of markedFam
print card
end repeat
close printing
else if printWhat = "stack" then
doMenu "Print Stack..."
end if
end doPrinting

--—————————————————————————————————————————————————————————————————————
--  intercept keyboard and menu handlers:  ————————————————————————————

-- redefine some menu commands
on doMenu whatMenu
--// Modified by Medior, Inc. 3/13/91
global RPStackName
if whatMenu = "Help" then
doStackHelp
else if whatMenu = "Message" then
showMenu
else if whatMenu is in "First Last Prev Next" then
answer "Use the buttons at the bottom of the card or the arrow keys to navigate."
-- else if whatMenu is in "Quit HyperCard Home Find... Print Report..." then
-- exit to hyperCard
else if (","& whatMenu &",") is in ",Home,Quit HyperCard," and RPStackName is not "" then
set cursor to 4
put RPStackName into sN
repeat until offset(":",sN) = 0
delete char 1 to offset(":",sN) of sN
end repeat
delete last char of sN
answer "This will return to "&sN&"." with "Cancel" or "OK"
if it is "Cancel" then exit domenu
set cursor to 4
lock screen
go RPStackName
unlock screen with dissolve fast
exit domenu
else pass doMenu
end doMenu

--  same as clicking the arrow buttons
on arrowKey whatKey
if whatKey = "Left" then click at 527,456
if whatKey = "Right" then click at 567,456
end arrowKey

--  same as clicking the return button
on returnKey
click at 607,456
end returnKey

--  intercept enter key
on enterKey
end enterKey

--—————————————————————————————————————————————————————————————————————
--  end stack script  —————————————————————————————————————————————————
--—————————————————————————————————————————————————————————————————————
</script>
    <background id="2601" file="background_2601.xml" name="Macintosh Advantage" />
    <background id="2884" file="background_2884.xml" name="Stack Map" />
    <background id="5988" file="background_5988.xml" name="Introduction" />
    <background id="7596" file="background_7596.xml" name="Customer Questions" />
    <background id="11136" file="background_11136.xml" name="Macintosh Family" />
    <background id="21076" file="background_21076.xml" name="Competition" />
    <card id="9916" file="card_9916.xml" marked="false" name="opening" owner="5988" />
    <card id="27272" file="card_27272.xml" marked="false" name="opening" owner="5988" />
    <card id="27899" file="card_27899.xml" marked="false" name="opening" owner="5988" />
    <card id="31509" file="card_31509.xml" marked="false" name="opening" owner="5988" />
    <card id="3677" file="card_3677.xml" marked="false" name="Stack Map" owner="2884" />
    <card id="5242" file="card_5242.xml" marked="false" name="Advantage" owner="2601" />
    <card id="4626" file="card_4626.xml" marked="false" name="" owner="2601" />
    <card id="8736" file="card_8736.xml" marked="false" name="" owner="2601" />
    <card id="9614" file="card_9614.xml" marked="false" name="" owner="2601" />
    <card id="2319" file="card_2319.xml" marked="false" name="" owner="2601" />
    <card id="4996" file="card_4996.xml" marked="false" name="" owner="2601" />
    <card id="10811" file="card_10811.xml" marked="false" name="" owner="2601" />
    <card id="7952" file="card_7952.xml" marked="false" name="" owner="2601" />
    <card id="9121" file="card_9121.xml" marked="false" name="" owner="2601" />
    <card id="9428" file="card_9428.xml" marked="false" name="" owner="2601" />
    <card id="25409" file="card_25409.xml" marked="false" name="" owner="2601" />
    <card id="31049" file="card_31049.xml" marked="false" name="" owner="2601" />
    <card id="11443" file="card_11443.xml" marked="false" name="Family" owner="11136" />
    <card id="31356" file="card_31356.xml" marked="false" name="Target Markets" owner="11136" />
    <card id="36198" file="card_36198.xml" marked="false" name="Target Markets" owner="11136" />
    <card id="37324" file="card_37324.xml" marked="false" name="Target Markets" owner="11136" />
    <card id="20478" file="card_20478.xml" marked="false" name="" owner="11136" />
    <card id="11799" file="card_11799.xml" marked="false" name="" owner="11136" />
    <card id="12160" file="card_12160.xml" marked="false" name="" owner="11136" />
    <card id="12502" file="card_12502.xml" marked="false" name="" owner="11136" />
    <card id="12761" file="card_12761.xml" marked="false" name="" owner="11136" />
    <card id="48368" file="card_48368.xml" marked="false" name="" owner="11136" />
    <card id="12858" file="card_12858.xml" marked="false" name="" owner="11136" />
    <card id="13339" file="card_13339.xml" marked="false" name="" owner="11136" />
    <card id="13699" file="card_13699.xml" marked="false" name="" owner="11136" />
    <card id="14022" file="card_14022.xml" marked="false" name="" owner="11136" />
    <card id="14111" file="card_14111.xml" marked="false" name="" owner="11136" />
    <card id="14467" file="card_14467.xml" marked="false" name="" owner="11136" />
    <card id="20944" file="card_20944.xml" marked="false" name="" owner="11136" />
    <card id="38073" file="card_38073.xml" marked="false" name="" owner="11136" />
    <card id="38285" file="card_38285.xml" marked="false" name="" owner="11136" />
    <card id="38542" file="card_38542.xml" marked="false" name="" owner="11136" />
    <card id="38846" file="card_38846.xml" marked="false" name="" owner="11136" />
    <card id="38984" file="card_38984.xml" marked="false" name="" owner="11136" />
    <card id="39243" file="card_39243.xml" marked="false" name="" owner="11136" />
    <card id="39620" file="card_39620.xml" marked="false" name="" owner="11136" />
    <card id="39923" file="card_39923.xml" marked="false" name="" owner="11136" />
    <card id="40619" file="card_40619.xml" marked="false" name="" owner="11136" />
    <card id="40116" file="card_40116.xml" marked="false" name="" owner="11136" />
    <card id="40325" file="card_40325.xml" marked="false" name="" owner="11136" />
    <card id="40786" file="card_40786.xml" marked="false" name="" owner="11136" />
    <card id="40997" file="card_40997.xml" marked="false" name="" owner="11136" />
    <card id="41281" file="card_41281.xml" marked="false" name="" owner="11136" />
    <card id="41580" file="card_41580.xml" marked="false" name="" owner="11136" />
    <card id="42074" file="card_42074.xml" marked="false" name="" owner="11136" />
    <card id="4159" file="card_4159.xml" marked="false" name="" owner="11136" />
    <card id="43237" file="card_43237.xml" marked="false" name="" owner="11136" />
    <card id="42990" file="card_42990.xml" marked="false" name="" owner="11136" />
    <card id="34480" file="card_34480.xml" marked="false" name="" owner="11136" />
    <card id="37690" file="card_37690.xml" marked="false" name="" owner="11136" />
    <card id="44133" file="card_44133.xml" marked="false" name="" owner="11136" />
    <card id="44481" file="card_44481.xml" marked="false" name="" owner="11136" />
    <card id="45042" file="card_45042.xml" marked="false" name="" owner="11136" />
    <card id="45173" file="card_45173.xml" marked="false" name="" owner="11136" />
    <card id="21325" file="card_21325.xml" marked="false" name="Competition" owner="21076" />
    <card id="22027" file="card_22027.xml" marked="false" name="" owner="21076" />
    <card id="49068" file="card_49068.xml" marked="false" name="" owner="21076" />
    <card id="50488" file="card_50488.xml" marked="false" name="" owner="21076" />
    <card id="22508" file="card_22508.xml" marked="false" name="" owner="21076" />
    <card id="43581" file="card_43581.xml" marked="false" name="" owner="21076" />
    <card id="31996" file="card_31996.xml" marked="false" name="" owner="21076" />
    <card id="43886" file="card_43886.xml" marked="false" name="" owner="21076" />
    <card id="22749" file="card_22749.xml" marked="false" name="" owner="21076" />
    <card id="50885" file="card_50885.xml" marked="false" name="" owner="21076" />
    <card id="23618" file="card_23618.xml" marked="false" name="" owner="21076" />
    <card id="24164" file="card_24164.xml" marked="false" name="" owner="21076" />
    <card id="22935" file="card_22935.xml" marked="false" name="" owner="21076" />
    <card id="23498" file="card_23498.xml" marked="false" name="" owner="21076" />
    <card id="46122" file="card_46122.xml" marked="false" name="" owner="21076" />
    <card id="46613" file="card_46613.xml" marked="false" name="" owner="21076" />
    <card id="47148" file="card_47148.xml" marked="false" name="" owner="21076" />
    <card id="23989" file="card_23989.xml" marked="false" name="" owner="21076" />
    <card id="47819" file="card_47819.xml" marked="false" name="" owner="21076" />
    <card id="28172" file="card_28172.xml" marked="false" name="" owner="21076" />
    <card id="8420" file="card_8420.xml" marked="false" name="Questions" owner="7596" />
    <card id="7743" file="card_7743.xml" marked="false" name="" owner="7596" />
    <card id="30833" file="card_30833.xml" marked="false" name="" owner="7596" />
    <card id="8478" file="card_8478.xml" marked="false" name="" owner="7596" />
    <card id="45417" file="card_45417.xml" marked="false" name="" owner="7596" />
    <card id="36747" file="card_36747.xml" marked="false" name="" owner="7596" />
    <card id="45747" file="card_45747.xml" marked="false" name="" owner="7596" />
    <card id="36415" file="card_36415.xml" marked="false" name="" owner="7596" />
    <card id="29930" file="card_29930.xml" marked="false" name="" owner="7596" />
    <card id="41730" file="card_41730.xml" marked="false" name="" owner="7596" />
    <card id="49738" file="card_49738.xml" marked="false" name="" owner="7596" />
    <card id="50005" file="card_50005.xml" marked="false" name="" owner="7596" />
    <card id="28997" file="card_28997.xml" marked="false" name="" owner="7596" />
    <card id="13150" file="card_13150.xml" marked="false" name="About this Stack" owner="7596" />
</stack>